	.ORIG x3000
	LEA   R0,STR0
	TRAP  x22
STR0	.STRINGZ  "how many levels?(3-9)"
	TRAP  X23
	ADD   R0, R0, #-12
	ADD   R0, R0, #-12
	ADD   R0, R0, #-12
	ADD   R0, R0, #-12
	AND   R5, R5, #0
	ADD   R5, R5, R0
	AND   R1, R1, #0
	AND   R2, R2, #0
	ADD   R2, R2, #2
	STR   R2, R1, #0
	STR   R2, R1, #1
	STR   R2, R1, #2
	STR   R2, R1, #3
	STR   R2, R1, #4
	STR   R2, R1, #5
	STR   R2, R1, #6
	STR   R2, R1, #7
	STR   R2, R1, #8
	STR   R2, R1, #9
	STR   R1, R1, #10
	STR   R1, R1, #20
	STR   R1, R1, #21
	STR   R1, R1, #22
	STR   R1, R1, #23
	STR   R1, R1, #24
	STR   R1, R1, #25
	STR   R1, R1, #26
	STR   R1, R1, #27
	STR   R1, R1, #28
	STR   R1, R1, #29
	STR   R1, R1, #30
	ADD   R1, R1, #1
FORII   AND   R2, R2, #0
	ADD   R2, R2, R5
	ADD   R2, R2, #-1
AFTII   AND   R4, R4, #0
	ADD   R4, R4, R5
	ADD   R3, R2, #1
AFTIII  LDR   R6, R3, #0
	LDR   R7, R3, #20
	NOT   R7, R7
	ADD   R7, R7, #1
	ADD   R0, R6, R7
	BRz   JPP
	ADD   R4, R3, #0
	BRnzp MATH
JPP     ADD   R3, R3, #1
	NOT   R5, R5
	ADD   R5, R5, #2
	ADD   R0, R3, R5
	ADD   R5, R5, #-2
	NOT   R5, R5
	ADD   R0, R0, #0
	BRnz  AFTIII
MATH    LDR   R6, R4, #0
	LDR   R7, R4, #20
	ADD   R7, R7, R6
	NOT   R7, R7
	ADD   R7, R7, #4
	BRzp  XXXI
	ADD   R7, R7, #3
XXXI    ADD   R7, R7, #-3 
	BRzp  XXXII
	ADD   R7, R7, #3
XXXII   STR   R7, R2, #20
	ADD   R2, R2, #-1
	BRzp  AFTII	
        AND   R2, R2, #0
AFTIV   LDR   R6, R2, #0
	LDR   R7, R2, #20
	NOT   R7, R7
	ADD   R7, R7, #1
	ADD   R0, R6, R7
	BRz   IPP
	LDR   R7, R2, #20
	STR   R7, R2, #0
	BRnzp FL
IPP     ADD   R2, R2, #1
	NOT   R5, R5
	ADD   R5, R5, #2
	ADD   R0, R2, R5
	ADD   R5, R5, #-2
	NOT   R5, R5
	ADD   R0, R0, #0
	BRnz  AFTIV
FL      AND   R1, R1, #0
        AND   R2, R2, #0
AFTV    LDR   R6, R2, #0
	ADD   R1, R1, R6
	LDR   R0, R2, #0
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	TRAP  x21
	ADD   R2, R2, #1
	NOT   R5, R5
	ADD   R5, R5, #2
	ADD   R0, R2, R5
	ADD   R5, R5, #-2
	NOT   R5, R5	
	ADD   R0, R0, #0
	BRnz  AFTV
	AND   R0, R0, #0
	ADD   R0, R0, 10
	TRAP  x21
		
	LEA   R0,STRA
	TRAP  x22
STRA	.STRINGZ  "A:"
	AND   R6, R6, #0
	ADD   R6, R6, R5
	ADD   R6, R6, #-1
LOOP	LDR   R7, R6, #0
	ADD   R7, R7, #-1
	BRnz   WHERE
	AND   R0, R0, #0
	ADD   R0, R0, R6
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	trap  x21
WHERE	ADD   R6, R6, #-1
	BRzp  LOOP
	AND   R0, R0, #0
	ADD   R0, R0, #13
	trap  x21
		
	LEA   R0,STRB
	TRAP  x22
STRB	.STRINGZ  "B:"
	AND   R6, R6, #0
	ADD   R6, R6, R5
	ADD   R6, R6, #-1
LOOPI	LDR   R7, R6, #0
	ADD   R7, R7, #-1
	BRzp   WHEREI
	AND   R0, R0, #0
	ADD   R0, R0, R6
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	trap  x21
WHEREI	ADD   R6, R6, #-1
	BRzp  LOOPI
	AND   R0, R0, #0
	ADD   R0, R0, #13
	trap  x21
		
	LEA   R0,STRC
	TRAP  x22
STRC	.STRINGZ  "C:"
	AND   R6, R6, #0
	ADD   R6, R6, R5
	ADD   R6, R6, #-1
LOOPII	LDR   R7, R6, #0
	ADD   R7, R7, #-1
	BRnp   WHEREII
	AND   R0, R0, #0
	ADD   R0, R0, R6
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	ADD   R0, R0, #12
	trap  x21
WHEREII	ADD   R6, R6, #-1
	BRzp  LOOPII
	AND   R0, R0, #0
	ADD   R0, R0, #13
	trap  x21
	trap  x23
	ADD   R1, R1, #0
	BRnp  FORII
	LEA   R0,STR1
	TRAP  x22
	STR1	.STRINGZ  "Good!"	
	TRAP  x25
	.END